﻿Imports System.ServiceModel

<ServiceBehavior(ConcurrencyMode:=ConcurrencyMode.Single, InstanceContextMode:=InstanceContextMode.Single, UseSynchronizationContext:=True)> _
Public Class LockManager
    Implements ILockManager

    Private host As IPopup

    Public Sub ShowKeypad() Implements ILockManager.ShowKeypad
        host.ShowPopup()
    End Sub

    Public Function GetStatus() As Boolean Implements ILockManager.GetStatus
        Return host.GetStatus()
    End Function

    Function GetPanicFilePath() As String Implements ILockManager.GetPanicFilePath
        Return My.Settings.PanicBatchFile
    End Function

    Function GetAbortTime() As Integer Implements ILockManager.GetAbortTime
        Return My.Settings.AbortTime
    End Function

    Function GetKeyCheck() As Integer Implements ILockManager.GetKeyCheck
        Return My.Settings.KeyCheck
    End Function

    Public Sub New(ByRef parent As IPopup)
        host = parent
    End Sub
End Class
